header.asp 良精ASP微博管理系统 V1.0 - ASP源码程序

www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\Include\header.asp
    <%
Dim webParmter
header_str=""
header_str=header_str&"<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"&vbcrlf
header_str=header_str&"<html xmlns=""http://www.w3.org/1999/xhtml"">"&vbcrlf
header_str=header_str&"<head>"&vbcrlf
header_str=header_str&"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" />"&vbcrlf
if Src_child<>"" and Src_child<>"-1" then
   set rs=conn.execute("select Child_name from Liangjing_SrcChild where Child_id="&src_child)
   Child_name=rs("Child_name")
      if not rs.eof then
	header_str=header_str&"<title>"& Child_name & "---" & Web_Name & "</title>"
      end if
rs.close
set rs=nothing
else
	header_str=header_str&"<title>" & Web_Name & webParmter & "</title>"
end If
header_str=header_str&"<meta content='"&Web_KeyWords&"' name='keywords'>"&vbcrlf
header_str=header_str&"<meta content='"&Web_Description&"' name='description'>"&vbcrlf
header_str=header_str&"<link rel=""shortcut icon"" href=""images/favicon.ico""/>"&vbcrlf
header_str=header_str&"<link href=""css/style.css"" type=""text/css"" rel=""stylesheet""/>"&vbcrlf
header_str=header_str&"<script type=""text/javascript"" src=""js/ajax.js""></script>"&vbcrlf
header_str=header_str&"<script type=""text/javascript"" src=""js/common.js""></script>"&vbcrlf
header_str=header_str&"<script language='javascript'>"&vbcrlf
header_str=header_str&"var Web_StatusKey="""&Web_StatusKey&""";"&vbcrlf
header_str=header_str&"window.status="""&Web_StatusKey&""";"&vbcrlf
header_str=header_str&"</script>"&vbcrlf
header_str=header_str&"<script language='javascript'>"
header_str=header_str&"function defaul_home(){this.home.style.behavior='url(#default#homepage)';this.home.setHomePage('http://www.liangjing.org/');"
header_str=header_str&"}</script>"
header_str=header_str&"<link rel=""alternate"" type=""application/rss+xml"" title=""微薄文章""  href=""Rss.asp"">"&vbcrlf
header_str=header_str&"</head>"&vbcrlf
header_str=header_str&"<body>"&vbcrlf
	Str_Child = ""
	Set Rs_Child=Server.CreateObject("adodb.recordset")
	Sql_Child = "Select * from Liangjing_SrcChild Where Child_TypeID="&Session("_WTypeID")&" and Child_IsUse=true Order By Child_OrderBy"
	Rs_Child.Open Sql_Child,conn
	if not Rs_Child.eof then
		while not Rs_Child.eof
			Str_Child = Str_Child & "<span><a href='index.asp?Src_Child="&Rs_Child("Child_ID")&"'>" & Rs_Child("Child_Name") & "</a></span>"
			Rs_Child.MoveNext
		wend
	end if
	Rs_Child.Close
	Set Rs_Child = Nothing
	header_str=header_str&"<div id=""headWrap"">"
	header_str=header_str&"<h1 id=""logo""><a>&nbsp;</a>"
	header_str=header_str&"</h1>"
	header_str=header_str&"<div class=""topMenu"">"


	header_str=header_str&""& Str_Child & ""
	header_str=header_str&"<span class=""userName""><a name='home' style=""cursor: hand"" onclick='defaul_home();'>设为首页</a></span>"
	header_str=header_str&"<span><a href=javascript:window.external.addfavorite('http://www.liangjing.org/','良精科技-微博系统-你值得拥有？-随时随地分享身边的新鲜事儿') target='_self'>加入收藏</a></span>"
	header_str=header_str&"</div>"

	if Session("_WUserID") = "" then	
	
	header_str=header_str&"<div id=""nav"">"
	header_str=header_str&"<ul>"
	header_str=header_str&"<li class=""home""><a href=""index.asp"" title="""& Web_Name &"微博"">微博首页</a></li>"
	header_str=header_str&"<li class=""news""><a href=""SrcSubmit.asp"">发布信息</a></li>"
	header_str=header_str&"<li class=""people""><a href='login.asp'>登录</a></li>"
	header_str=header_str&"<li class=""news""><a href='forgetpass.asp'><span class='hot'>忘记密码</span></a></li>"
	header_str=header_str&"</ul>"
	header_str=header_str&"</div>"	
	 else 	
	header_str=header_str&"<div id=""nav"">"
	header_str=header_str&"<ul>"
	header_str=header_str&"<li class=""home""><a href=""index.asp"" title="""& Web_Name &"微博"">微博首页</a></li>"
	header_str=header_str&"<li class=""news""><a href=""SrcSubmit.asp"">发布信息</a></li>"
	header_str=header_str&"<li ><a href='Setting.asp'>个性设置</a></li>"
	header_str=header_str&"<li><a href='javascript:Is_Exit();'>退出</a></li>"
	header_str=header_str&"</ul>"
	header_str=header_str&"</div>"		
	end If
    response.write header_str
%>
<script type="text/javascript" src="http://ad.liangjing.org/JsAd/home/ad-new.js "></script>